(Fstart_kbd_macro): Remove redundant assignment.

diff --git a/src/macros.c b/src/macros.c
index 2b50a491ca47e366603d299dab3792b046732287..1b23f4b3c8c0ad5139db17c24005af828f9c66f5 100644 (file)
--- a/src/macros.c
+++ b/src/macros.c
@@ -119,8 +119,8 @@ macro before appending to it. */)
        {
          Lisp_Object c;
          c = Faref (current_kboard->Vlast_kbd_macro, make_number (i));
-         if (cvt && INTEGERP (c) && (XINT (c) & 0x80))
-           c = XSETFASTINT (c, CHAR_META | (XINT (c) & ~0x80));
+         if (cvt && NATNUMP (c) && (XFASTINT (c) & 0x80))
+           XSETFASTINT (c, CHAR_META | (XFASTINT (c) & ~0x80));
          current_kboard->kbd_macro_buffer[i] = c;
        }